home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbgui10 / form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-26  |  3.6 KB  |  131 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "File Attribute Changes"
  4.    ClientHeight    =   4365
  5.    ClientLeft      =   2940
  6.    ClientTop       =   2205
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form3"
  9.    ScaleHeight     =   4365
  10.    ScaleWidth      =   4680
  11.    Begin VB.OptionButton Option8 
  12.       Caption         =   "Sub Archive Only"
  13.       Height          =   255
  14.       Left            =   120
  15.       TabIndex        =   12
  16.       Top             =   2760
  17.       Width           =   1815
  18.    End
  19.    Begin VB.OptionButton Option7 
  20.       Caption         =   "Add Archive Only"
  21.       Height          =   255
  22.       Left            =   120
  23.       TabIndex        =   11
  24.       Top             =   2400
  25.       Width           =   1815
  26.    End
  27.    Begin VB.OptionButton Option6 
  28.       Caption         =   "Sub Hidden Only"
  29.       Height          =   255
  30.       Left            =   120
  31.       TabIndex        =   10
  32.       Top             =   2040
  33.       Width           =   1815
  34.    End
  35.    Begin VB.OptionButton Option5 
  36.       Caption         =   "Add Hidden Only"
  37.       Height          =   255
  38.       Left            =   120
  39.       TabIndex        =   9
  40.       Top             =   1680
  41.       Width           =   1815
  42.    End
  43.    Begin VB.OptionButton Option4 
  44.       Caption         =   "Sub System Only"
  45.       Height          =   255
  46.       Left            =   120
  47.       TabIndex        =   8
  48.       Top             =   1320
  49.       Width           =   1815
  50.    End
  51.    Begin VB.OptionButton Option3 
  52.       Caption         =   "Add System Only"
  53.       Height          =   255
  54.       Left            =   120
  55.       TabIndex        =   7
  56.       Top             =   960
  57.       Width           =   1815
  58.    End
  59.    Begin VB.OptionButton Option2 
  60.       Caption         =   "Sub Read Only"
  61.       Height          =   255
  62.       Left            =   120
  63.       TabIndex        =   6
  64.       Top             =   600
  65.       Width           =   1815
  66.    End
  67.    Begin VB.OptionButton Option1 
  68.       Caption         =   " Add Read Only"
  69.       Height          =   255
  70.       Left            =   120
  71.       TabIndex        =   5
  72.       Top             =   240
  73.       Width           =   1815
  74.    End
  75.    Begin VB.CheckBox Check1 
  76.       Caption         =   "Change  Attributes"
  77.       Height          =   255
  78.       Left            =   120
  79.       TabIndex        =   4
  80.       Top             =   3360
  81.       Value           =   1  'Checked
  82.       Width           =   1815
  83.    End
  84.    Begin VB.TextBox Text1 
  85.       Height          =   285
  86.       Left            =   120
  87.       TabIndex        =   3
  88.       Text            =   "Text1"
  89.       Top             =   3960
  90.       Width           =   4335
  91.    End
  92.    Begin VB.FileListBox File1 
  93.       Height          =   1455
  94.       Left            =   2160
  95.       TabIndex        =   2
  96.       Top             =   2280
  97.       Width           =   2295
  98.    End
  99.    Begin VB.DirListBox Dir1 
  100.       Height          =   1440
  101.       Left            =   2160
  102.       TabIndex        =   1
  103.       Top             =   720
  104.       Width           =   2295
  105.    End
  106.    Begin VB.DriveListBox Drive1 
  107.       Height          =   315
  108.       Left            =   2160
  109.       TabIndex        =   0
  110.       Top             =   240
  111.       Width           =   2295
  112.    End
  113. Attribute VB_Name = "Form3"
  114. Attribute VB_GlobalNameSpace = False
  115. Attribute VB_Creatable = False
  116. Attribute VB_PredeclaredId = True
  117. Attribute VB_Exposed = False
  118. Private Sub Dir1_Change()
  119. 'Dir change box
  120. File1.Path = Dir1.Path
  121. End Sub
  122. Private Sub Drive1_Change()
  123. ' drive1_Change
  124. On Error GoTo drv1:
  125. Dir1.Path = Drive1.Drive
  126. Exit Sub
  127. drv1:
  128. Drive1.Drive = Dir1.Path
  129. Exit Sub
  130. End Sub
  131.